The alpha question became the alpha conjecture
The
alpha
question
. Let
be a prime (greater than 3, to
prevent
it from being 3) such that
is it then true that
(mod
p
)?
(Private terminology
. I took to calling the other primes '
inexplicable
' for the time being. Other later examples, when I extended my searching were: 25117 - 1 = (
) (3) (7) (13) (23), 60919 - 1 = (2) (3) (11) (13) (71),
92401 - 1 = (
) (3) (
) (7) (11), 115827 - 1 =(
) (3) (
) (197),
etc etc.
)
There were two first cases to examine, with unimportant order:
with '+1' or '-1'.
Let's say we begin, as I did, with
and '-1': thus we are trying to find primes {
p
} made up as follows:
, where
are primes with
, (
)
and are hoping that such primes satisfy:
(mod
p
)
Such p 's are like this:
=
which is, as I observed at the time, a quadratic whose discriminant is
Here I show
and '-1' for forming some primes {
p
}.
I abbreviate 'alpha' to 'a' in the following to reduce the program lines in the following, in which:
>
a := 1: SIGN := -1:
count:= 0: for k from 3 to 100 do
if isprime(2^a*ithprime(k)+SIGN) and isprime(2^a*3*ithprime(k)*(2^a*ithprime(k)+SIGN)+1) then count := count+1:
q1[count] := ithprime(k):
q2[count] := 2^a*q1[count]+SIGN:
p[count] := 2^a*3*q1[count]*q2[count]+1:
fi od;
array([[q[1], q[2], p], seq([q1[k], q2[k], p[k]], k=1..count)]);
>
At the time at which I tested the above, I had systematically tested for
(mod
p
), for
all
primes up to the 30,000th (note to myself: all that is saved in a Maple worksheet that I had called '
Wilson play
.mws', the name of which gives an indication of my attitude up until then). The
largest
such prime
p
I had found at that stage had been 347821 (an 'inexplicable' prime,
being
*3*5*11*17*31), and thus those three last
new
primes -
627919, 879667, and 2310019
- in the above table were
first tester candidates of my alpha observation
... (
heart beating...
).
Well, I wouldn't be here talking to you if it hadn't turned out that:
> p1 := 627919: P[1,3](p1) mod p1; # didn't produce a '1'
> 1372^3 mod p1; # but its cube did
> p2 := 879667: P[1,3](p2) mod p2;
> p3 := 2310019: P[1,3](p3) mod p3;
>
The reader may imagine how I felt seeing those 1's...
>
a := 1: SIGN := -1:
count:= 0: for k from 501 to 1000 do
if isprime(2^a*ithprime(k)+SIGN) and isprime(2^a*3*ithprime(k)*(2^a*ithprime(k)+SIGN)+1) then count := count+1:
q1[count] := ithprime(k):
q2[count] := 2^a*q1[count]+SIGN:
p[count] := 2^a*3*q1[count]*q2[count]+1:
fi od;
array([[q[1], q[2], p], seq([q1[k], q2[k], p[k]], k=1..count)]);
>
Here I show
and '+1' for forming some primes {
p
}:
>
a := 1: SIGN := +1:
count:= 0: for k from 3 to 100 do
if isprime(2^a*ithprime(k)+SIGN) and isprime(2^a*3*ithprime(k)*(2^a*ithprime(k)+SIGN)+1) then count := count+1:
q1[count] := ithprime(k):
q2[count] := 2^a*q1[count]+SIGN:
p[count] := 2^a*3*q1[count]*q2[count]+1:
fi od;
array([[q[1], q[2], p], seq([q1[k], q2[k], p[k]], k=1..count)]);
>
I tested alpha up to 10 with both '-1' and '+1' choices, and checked if
(mod
p
) held,
not
for all the produced primes {
p
}, but
only
because of
computation time constraints
: for example, the
prime 18711862657
(see below:
,
,
)
took 80.5 hours to test on a 2.8GHz Pentium 4
.
Here I show
and '+1' for forming some primes {
p
}:
>
a := 7: SIGN := +1:
count:= 0: for k from 3 to 200 do
if isprime(2^a*ithprime(k)+SIGN) and isprime(2^a*3*ithprime(k)*(2^a*ithprime(k)+SIGN)+1) then count := count+1:
q1[count] := ithprime(k):
q2[count] := 2^a*q1[count]+SIGN:
p[count] := 2^a*3*q1[count]*q2[count]+1:
fi od;
array([[q[1], q[2], p], seq([q1[k], q2[k], p[k]], k=1..count)]);
>
Of course I knew I was onto something:
The
alpha
conjecture.
Let
be a prime (greater than 3, to
prevent
it from being 3) such that
then
(mod
p
)
But the problem then became: how can one prove this ( almost certainly tru e) conjecture? That brings me to the next natural section: